home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / kcl.lha / lsp / defstruct.c < prev    next >
C/C++ Source or Header  |  1987-06-04  |  30KB  |  1,402 lines
  1.  
  2. /* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
  3. #include <cmpinclude.h>
  4. #include "defstruct.h"
  5. init_defstruct(start,size,data)char *start;int size;object data;
  6. {    register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
  7.     Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
  8.     base[0]= VV[0];
  9.     (void)simple_symlispcall_no_event(VV[123],base+0,1);
  10.     MF(VV[124],L2,start,size,data);
  11.     data->v.v_self[40]=VV[40]=string_to_object(VV[40]);
  12.     vs_top=sup;
  13.     MF(VV[125],L3,start,size,data);
  14.     MF(VV[126],L4,start,size,data);
  15.     MF(VV[127],L5,start,size,data);
  16.     MF(VV[128],L6,start,size,data);
  17.     MF(VV[129],L7,start,size,data);
  18.     MF(VV[130],L8,start,size,data);
  19.     MM(VV[102],L9,start,size,data);
  20.     MF(VV[121],L10,start,size,data);
  21.     base[0]= VV[119];
  22.     base[1]= VV[120];
  23.     base[2]= VV[121];
  24.     (void)simple_symlispcall_no_event(VV[131],base+0,3);
  25.     base[0]= VV[119];
  26.     base[1]= VV[122];
  27.     base[2]= VV[121];
  28.     (void)simple_symlispcall_no_event(VV[131],base+0,3);
  29.     vs_top=vs_base=base;
  30. }
  31. /*    function definition for MAKE-ACCESS-FUNCTION    */
  32.  
  33. static L2()
  34. {    register object *base=vs_base;
  35.     register object *sup=base+VM3;
  36.     vs_reserve(VM3);
  37.     check_arg(9);
  38.     vs_top=sup;
  39. TTL:;
  40.     base[11]= coerce_to_string(base[1]);
  41.     base[12]= coerce_to_string(base[4]);
  42.     base[10]= simple_symlispcall_no_event(VV[132],base+11,2);
  43.     vs_top=(vs_base=base+10)+1;
  44.     Lintern();
  45.     vs_top=sup;
  46.     base[9]= vs_base[0];
  47.     if((base[2])!=Cnil){
  48.     goto T16;}
  49.     base[10]= list(2,VV[5],base[0]);
  50.     base[11]= list(4,VV[3],VV[4],base[10],base[8]);
  51.     base[12]= list(4,VV[1],base[9],VV[2],base[11]);
  52.     base[13]= list(2,VV[5],base[9]);
  53.     base[14]= make_cons(base[0],base[8]);
  54.     base[15]= list(2,VV[5],base[14]);
  55.     base[16]= list(4,VV[6],base[13],base[15],VV[7]);
  56.     if((base[7])!=Cnil){
  57.     goto T20;}
  58.     base[18]= list(2,VV[5],base[0]);
  59.     base[19]= list(2,VV[5],base[18]);
  60.     base[20]= list(6,VV[11],VV[12],VV[4],base[19],base[8],VV[13]);
  61.     base[21]= list(5,VV[8],base[9],VV[9],VV[10],base[20]);
  62.     base[17]= make_cons(base[21],Cnil);
  63.     goto T18;
  64. T20:;
  65.     base[18]= list(2,VV[5],base[9]);
  66.     base[19]= list(3,VV[14],base[18],VV[15]);
  67.     base[20]= list(2,VV[5],base[9]);
  68.     base[21]= list(3,VV[14],base[20],VV[16]);
  69.     base[22]= list(2,VV[5],base[9]);
  70.     base[23]= list(3,VV[14],base[22],VV[17]);
  71.     base[17]= list(3,base[19],base[21],base[23]);
  72. T18:;
  73.     base[18]= listA(3,base[12],base[16],base[17]);
  74.     vs_top=(vs_base=base+18)+1;
  75.     return;
  76. T16:;
  77.     if(base[2]==VV[18]){
  78.     goto T22;}
  79.     if(!(type_of(base[2])==t_cons)){
  80.     goto T23;}
  81.     if(!(car(base[2])==VV[18])){
  82.     goto T23;}
  83. T22:;
  84.     base[10]= list(3,VV[20],VV[4],base[8]);
  85.     base[11]= list(4,VV[1],base[9],VV[19],base[10]);
  86.     base[12]= list(2,VV[5],base[9]);
  87.     base[13]= make_cons(VV[18],base[8]);
  88.     base[14]= list(2,VV[5],base[13]);
  89.     base[15]= list(4,VV[6],base[12],base[14],VV[21]);
  90.     if((base[7])!=Cnil){
  91.     goto T31;}
  92.     base[17]= list(5,VV[11],VV[24],VV[4],base[8],VV[13]);
  93.     base[18]= list(5,VV[8],base[9],VV[22],VV[23],base[17]);
  94.     base[16]= make_cons(base[18],Cnil);
  95.     goto T29;
  96. T31:;
  97.     base[17]= list(2,VV[5],base[9]);
  98.     base[18]= list(3,VV[14],base[17],VV[25]);
  99.     base[19]= list(2,VV[5],base[9]);
  100.     base[20]= list(3,VV[14],base[19],VV[26]);
  101.     base[21]= list(2,VV[5],base[9]);
  102.     base[22]= list(3,VV[14],base[21],VV[27]);
  103.     base[16]= list(3,base[18],base[20],base[22]);
  104. T29:;
  105.     base[17]= listA(3,base[11],base[15],base[16]);
  106.     vs_top=(vs_base=base+17)+1;
  107.     return;
  108. T23:;
  109.     if(!(base[2]==VV[11])){
  110.     goto T34;}
  111.     base[10]= list(3,VV[29],base[8],VV[4]);
  112.     base[11]= list(4,VV[1],base[9],VV[28],base[10]);
  113.     base[12]= list(2,VV[5],base[9]);
  114.     base[13]= make_cons(VV[11],base[8]);
  115.     base[14]= list(2,VV[5],base[13]);
  116.     base[15]= list(4,VV[6],base[12],base[14],VV[30]);
  117.     if((base[7])!=Cnil){
  118.     goto T38;}
  119.     base[17]= list(5,VV[11],VV[33],VV[4],base[8],VV[13]);
  120.     base[18]= list(5,VV[8],base[9],VV[31],VV[32],base[17]);
  121.     base[16]= make_cons(base[18],Cnil);
  122.     goto T36;
  123. T38:;
  124.     base[17]= list(2,VV[5],base[9]);
  125.     base[18]= list(3,VV[14],base[17],VV[34]);
  126.     base[19]= list(2,VV[5],base[9]);
  127.     base[20]= list(3,VV[14],base[19],VV[35]);
  128.     base[21]= list(2,VV[5],base[9]);
  129.     base[22]= list(3,VV[14],base[21],VV[36]);
  130.     base[16]= list(3,base[18],base[20],base[22]);
  131. T36:;
  132.     base[17]= listA(3,base[11],base[15],base[16]);
  133.     vs_top=(vs_base=base+17)+1;
  134.     return;
  135. T34:;
  136.     base[11]= VV[37];
  137.     base[12]= base[2];
  138.     vs_top=(vs_base=base+11)+2;
  139.     Lerror();
  140.     vs_top=sup;
  141.     base[10]= vs_base[0];
  142.     if((base[10])==Cnil){
  143.     goto T44;}
  144.     vs_top=(vs_base=base+10)+1;
  145.     return;
  146. T44:;
  147.     base[11]= Cnil;
  148.     vs_top=(vs_base=base+11)+1;
  149.     return;
  150. }
  151. /*    function definition for MAKE-CONSTRUCTOR    */
  152.  
  153. static L3()
  154. {    register object *base=vs_base;
  155.     register object *sup=base+VM4;
  156.     vs_reserve(VM4);
  157.     check_arg(5);
  158.     vs_top=sup;
  159. TTL:;
  160.     {object V1;
  161.     object V2= base[4];
  162.     if(endp(V2)){
  163.     base[5]= Cnil;
  164.     goto T46;}
  165.     base[7]=V1=MMcons(Cnil,Cnil);
  166. T47:;
  167.     if(((V2->c.c_car))!=Cnil){
  168.     goto T50;}
  169.     (V1->c.c_car)= Cnil;
  170.     goto T48;
  171. T50:;
  172.     if((car((V2->c.c_car)))!=Cnil){
  173.     goto T53;}
  174.     (V1->c.c_car)= list(2,VV[5],cadr((V2->c.c_car)));
  175.     goto T48;
  176. T53:;
  177.     (V1->c.c_car)= car((V2->c.c_car));
  178. T48:;
  179.     if(endp(V2=MMcdr(V2))){
  180.     base[5]= base[7];
  181.     goto T46;}
  182.     V1=MMcdr(V1)=MMcons(Cnil,Cnil);
  183.     goto T47;}
  184. T46:;
  185.     {object V3;
  186.     object V4= base[4];
  187.     if(endp(V4)){
  188.     base[6]= Cnil;
  189.     goto T55;}
  190.     base[7]=V3=MMcons(Cnil,Cnil);
  191. T56:;
  192.     if(((V4->c.c_car))!=Cnil){
  193.     goto T59;}
  194.     (V3->c.c_cdr)= Cnil;
  195.     goto T57;
  196. T59:;
  197.     if((car((V4->c.c_car)))!=Cnil){
  198.     goto T62;}
  199.     (V3->c.c_cdr)= Cnil;
  200.     goto T57;
  201. T62:;
  202.     if((cadr((V4->c.c_car)))!=Cnil){
  203.     goto T65;}
  204.     (V3->c.c_cdr)= make_cons(car((V4->c.c_car)),Cnil);
  205.     goto T57;
  206. T65:;
  207.     base[9]= list(2,car((V4->c.c_car)),cadr((V4->c.c_car)));
  208.     (V3->c.c_cdr)= make_cons(base[9],Cnil);
  209. T57:;
  210.     while(!endp(MMcdr(V3)))V3=MMcdr(V3);
  211.     if(endp(V4=MMcdr(V4))){
  212.     base[7]=base[7]->c.c_cdr;
  213.     base[6]= base[7];
  214.     goto T55;}
  215.     goto T56;}
  216. T55:;
  217.     if(!(type_of(base[1])==t_cons)){
  218.     goto T69;}
  219.     base[7]= cadr(base[1]);
  220.     base[8]= Cnil;
  221.     base[9]= Cnil;
  222. T74:;
  223.     if(!(endp(base[7]))){
  224.     goto T75;}
  225.     base[10]= make_cons(VV[38],base[8]);
  226.     {object V5;
  227.     object V6= base[6];
  228.     if(endp(V6)){
  229.     base[11]= Cnil;
  230.     goto T80;}
  231.     base[12]=V5=MMcons(Cnil,Cnil);
  232. T81:;
  233.     if(!(type_of((V6->c.c_car))!=t_cons)){
  234.     goto T88;}
  235.     base[14]= (V6->c.c_car);
  236.     goto T86;
  237. T88:;
  238.     base[14]= car((V6->c.c_car));
  239. T86:;
  240.     {object x= base[14],V7= base[9];
  241.     while(!endp(V7))
  242.     if(eql(x,V7->c.c_car)){
  243.     goto T85;
  244.     }else V7=V7->c.c_cdr;
  245.     goto T84;}
  246. T85:;
  247.     (V5->c.c_cdr)= Cnil;
  248.     goto T82;
  249. T84:;
  250.     (V5->c.c_cdr)= make_cons((V6->c.c_car),Cnil);
  251. T82:;
  252.     while(!endp(MMcdr(V5)))V5=MMcdr(V5);
  253.     if(endp(V6=MMcdr(V6))){
  254.     base[12]=base[12]->c.c_cdr;
  255.     base[11]= base[12];
  256.     goto T80;}
  257.     goto T81;}
  258. T80:;
  259.     vs_top=(vs_base=base+10)+2;
  260.     Lreconc();
  261.     vs_top=sup;
  262.     base[6]= vs_base[0];
  263.     goto T71;
  264. T75:;
  265.     if(!(car(base[7])==VV[39])){
  266.     goto T93;}
  267.     base[8]= make_cons(VV[39],base[8]);
  268.     base[10]= cdr(base[7]);
  269.     base[11]= Cnil;
  270.     base[12]= Cnil;
  271. T100:;
  272.     if(!(endp(base[10]))){
  273.     goto T101;}
  274.     base[13]= make_cons(VV[38],base[8]);
  275.     {object V8;
  276.     object V9= base[6];
  277.     if(endp(V9)){
  278.     base[14]= Cnil;
  279.     goto T107;}
  280.     base[15]=V8=MMcons(Cnil,Cnil);
  281. T108:;
  282.     if(!(type_of((V9->c.c_car))!=t_cons)){
  283.     goto T115;}
  284.     base[17]= (V9->c.c_car);
  285.     goto T113;
  286. T115:;
  287.     base[17]= car((V9->c.c_car));
  288. T113:;
  289.     {object x= base[17],V10= base[9];
  290.     while(!endp(V10))
  291.     if(eql(x,V10->c.c_car)){
  292.     goto T112;
  293.     }else V10=V10->c.c_cdr;
  294.     goto T111;}
  295. T112:;
  296.     (V8->c.c_cdr)= Cnil;
  297.     goto T109;
  298. T111:;
  299.     (V8->c.c_cdr)= make_cons((V9->c.c_car),Cnil);
  300. T109:;
  301.     while(!endp(MMcdr(V8)))V8=MMcdr(V8);
  302.     if(endp(V9=MMcdr(V9))){
  303.     base[15]=base[15]->c.c_cdr;
  304.     base[14]= base[15];
  305.     goto T107;}
  306.     goto T108;}
  307. T107:;
  308.     vs_top=(vs_base=base+13)+2;
  309.     Lreconc();
  310.     vs_top=sup;
  311.     base[6]= vs_base[0];
  312.     goto T97;
  313. T101:;
  314.     {object x= car(base[10]),V11= VV[40];
  315.     while(!endp(V11))
  316.     if(eql(x,V11->c.c_car)){
  317.     goto T120;
  318.     }else V11=V11->c.c_cdr;
  319.     goto T118;}
  320. T120:;
  321.     if(!(car(base[10])==VV[41])){
  322.     goto T121;}
  323.     base[8]= make_cons(VV[41],base[8]);
  324.     base[10]= cdr(base[10]);
  325.     if(endp(base[10])){
  326.     goto T129;}
  327.     if(type_of(car(base[10]))==t_symbol){
  328.     goto T128;}
  329. T129:;
  330.     vs_base=vs_top;
  331.     L4();
  332.     vs_top=sup;
  333. T128:;
  334.     base[9]= make_cons(car(base[10]),base[9]);
  335.     base[8]= make_cons(car(base[10]),base[8]);
  336.     base[10]= cdr(base[10]);
  337.     if(!(endp(base[10]))){
  338.     goto T121;}
  339.     base[13]= make_cons(VV[38],base[8]);
  340.     {object V12;
  341.     object V13= base[6];
  342.     if(endp(V13)){
  343.     base[14]= Cnil;
  344.     goto T144;}
  345.     base[15]=V12=MMcons(Cnil,Cnil);
  346. T145:;
  347.     if(!(type_of((V13->c.c_car))!=t_cons)){
  348.     goto T152;}
  349.     base[17]= (V13->c.c_car);
  350.     goto T150;
  351. T152:;
  352.     base[17]= car((V13->c.c_car));
  353. T150:;
  354.     {object x= base[17],V14= base[9];
  355.     while(!endp(V14))
  356.     if(eql(x,V14->c.c_car)){
  357.     goto T149;
  358.     }else V14=V14->c.c_cdr;
  359.     goto T148;}
  360. T149:;
  361.     (V12->c.c_cdr)= Cnil;
  362.     goto T146;
  363. T148:;
  364.     (V12->c.c_cdr)= make_cons((V13->c.c_car),Cnil);
  365. T146:;
  366.     while(!endp(MMcdr(V12)))V12=MMcdr(V12);
  367.     if(endp(V13=MMcdr(V13))){
  368.     base[15]=base[15]->c.c_cdr;
  369.     base[14]= base[15];
  370.     goto T144;}
  371.     goto T145;}
  372. T144:;
  373.     vs_top=(vs_base=base+13)+2;
  374.     Lreconc();
  375.     vs_top=sup;
  376.     base[6]= vs_base[0];
  377.     goto T97;
  378. T121:;
  379.     if(car(base[10])==VV[38]){
  380.     goto T154;}
  381.     vs_base=vs_top;
  382.     L4();
  383.     vs_top=sup;
  384. T154:;
  385.     base[8]= make_cons(VV[38],base[8]);
  386.     base[13]= cdr(base[10]);
  387. T162:;
  388.     if(!(endp(base[13]))){
  389.     goto T163;}
  390.     goto T159;
  391. T163:;
  392.     base[8]= make_cons(car(base[13]),base[8]);
  393.     if(!(type_of(car(base[13]))!=t_cons)){
  394.     goto T171;}
  395.     if(!(type_of(car(base[13]))==t_symbol)){
  396.     goto T171;}
  397.     base[9]= make_cons(car(base[13]),base[9]);
  398.     goto T169;
  399. T171:;
  400.     if(!(type_of(caar(base[13]))==t_symbol)){
  401.     goto T177;}
  402.     if(endp(cdar(base[13]))){
  403.     goto T176;}
  404.     if(!(endp(cddar(base[13])))){
  405.     goto T177;}
  406. T176:;
  407.     base[9]= make_cons(caar(base[13]),base[9]);
  408.     goto T169;
  409. T177:;
  410.     vs_base=vs_top;
  411.     L4();
  412.     vs_top=sup;
  413. T169:;
  414.     base[13]= cdr(base[13]);
  415.     goto T162;
  416. T159:;
  417.     base[13]= base[8];
  418.     {object V15;
  419.     object V16= base[6];
  420.     if(endp(V16)){
  421.     base[14]= Cnil;
  422.     goto T190;}
  423.     base[15]=V15=MMcons(Cnil,Cnil);
  424. T191:;
  425.     if(!(type_of((V16->c.c_car))!=t_cons)){
  426.     goto T198;}
  427.     base[17]= (V16->c.c_car);
  428.     goto T196;
  429. T198:;
  430.     base[17]= car((V16->c.c_car));
  431. T196:;
  432.     {object x= base[17],V17= base[9];
  433.     while(!endp(V17))
  434.     if(eql(x,V17->c.c_car)){
  435.     goto T195;
  436.     }else V17=V17->c.c_cdr;
  437.     goto T194;}
  438. T195:;
  439.     (V15->c.c_cdr)= Cnil;
  440.     goto T192;
  441. T194:;
  442.     (V15->c.c_cdr)= make_cons((V16->c.c_car),Cnil);
  443. T192:;
  444.     while(!endp(MMcdr(V15)))V15=MMcdr(V15);
  445.     if(endp(V16=MMcdr(V16))){
  446.     base[15]=base[15]->c.c_cdr;
  447.     base[14]= base[15];
  448.     goto T190;}
  449.     goto T191;}
  450. T190:;
  451.     vs_top=(vs_base=base+13)+2;
  452.     Lreconc();
  453.     vs_top=sup;
  454.     base[6]= vs_base[0];
  455.     goto T97;
  456. T118:;
  457.     if(!(type_of(car(base[10]))!=t_cons)){
  458.     goto T206;}
  459.     base[11]= car(base[10]);
  460.     goto T204;
  461. T206:;
  462.     if(!(endp(cdar(base[10])))){
  463.     goto T211;}
  464.     base[11]= caar(base[10]);
  465.     goto T204;
  466. T211:;
  467.     goto T202;
  468. T204:;
  469.     base[13]= base[11];
  470.     base[14]= base[6];
  471.     base[15]= VV[42];
  472.     base[16]= 
  473.     make_cclosure(LC13,Cnil,Cnil,Cdata,Cstart,Csize);
  474.     vs_top=(vs_base=base+13)+4;
  475.     Lmember();
  476.     vs_top=sup;
  477.     base[12]= vs_base[0];
  478.     if((base[12])==Cnil){
  479.     goto T202;}
  480.     base[8]= make_cons(car(base[12]),base[8]);
  481.     goto T200;
  482. T202:;
  483.     base[8]= make_cons(car(base[10]),base[8]);
  484. T200:;
  485.     if(!(type_of(car(base[10]))!=t_cons)){
  486.     goto T225;}
  487.     if(type_of(car(base[10]))==t_symbol){
  488.     goto T227;}
  489.     vs_base=vs_top;
  490.     L4();
  491.     vs_top=sup;
  492. T227:;
  493.     base[9]= make_cons(car(base[10]),base[9]);
  494.     goto T223;
  495. T225:;
  496.     if(type_of(caar(base[10]))==t_symbol){
  497.     goto T232;}
  498.     vs_base=vs_top;
  499.     L4();
  500.     vs_top=sup;
  501.     goto T223;
  502. T232:;
  503.     if(endp(cdar(base[10]))){
  504.     goto T234;}
  505.     if(!(endp(cddar(base[10])))){
  506.     goto T235;}
  507. T234:;
  508.     base[9]= make_cons(caar(base[10]),base[9]);
  509.     goto T223;
  510. T235:;
  511.     if(type_of(caddar(base[10]))==t_symbol){
  512.     goto T241;}
  513.     vs_base=vs_top;
  514.     L4();
  515.     vs_top=sup;
  516.     goto T223;
  517. T241:;
  518.     if(endp(cdddar(base[10]))){
  519.     goto T244;}
  520.     vs_base=vs_top;
  521.     L4();
  522.     vs_top=sup;
  523.     goto T223;
  524. T244:;
  525.     base[9]= make_cons(caar(base[10]),base[9]);
  526.     base[9]= make_cons(caddar(base[10]),base[9]);
  527. T223:;
  528.     base[10]= cdr(base[10]);
  529.     goto T100;
  530. T97:;
  531.     goto T71;
  532. T93:;
  533.     if(type_of(car(base[7]))==t_symbol){
  534.     goto T252;}
  535.     vs_base=vs_top;
  536.     L4();
  537.     vs_top=sup;
  538. T252:;
  539.     base[8]= make_cons(car(base[7]),base[8]);
  540.     base[9]= make_cons(car(base[7]),base[9]);
  541.     base[7]= cdr(base[7]);
  542.     goto T74;
  543. T71:;
  544.     base[1]= car(base[1]);
  545.     goto T67;
  546. T69:;
  547.     base[6]= make_cons(VV[43],base[6]);
  548. T67:;
  549.     if((base[2])!=Cnil){
  550.     goto T264;}
  551.     base[7]= list(2,VV[5],base[0]);
  552.     base[8]= listA(3,VV[44],base[7],base[5]);
  553.     base[9]= list(4,VV[1],base[1],base[6],base[8]);
  554.     vs_top=(vs_base=base+9)+1;
  555.     return;
  556. T264:;
  557.     if(base[2]==VV[18]){
  558.     goto T266;}
  559.     if(!(type_of(base[2])==t_cons)){
  560.     goto T267;}
  561.     if(!(car(base[2])==VV[18])){
  562.     goto T267;}
  563. T266:;
  564.     base[7]= make_cons(VV[18],base[5]);
  565.     base[8]= list(4,VV[1],base[1],base[6],base[7]);
  566.     vs_top=(vs_base=base+8)+1;
  567.     return;
  568. T267:;
  569.     if(!(base[2]==VV[11])){
  570.     goto T274;}
  571.     base[7]= make_cons(VV[11],base[5]);
  572.     base[8]= list(4,VV[1],base[1],base[6],base[7]);
  573.     vs_top=(vs_base=base+8)+1;
  574.     return;
  575. T274:;
  576.     base[8]= VV[45];
  577.     base[9]= base[2];
  578.     vs_top=(vs_base=base+8)+2;
  579.     Lerror();
  580.     vs_top=sup;
  581.     base[7]= vs_base[0];
  582.     if((base[7])==Cnil){
  583.     goto T280;}
  584.     vs_top=(vs_base=base+7)+1;
  585.     return;
  586. T280:;
  587.     base[8]= Cnil;
  588.     vs_top=(vs_base=base+8)+1;
  589.     return;
  590. }
  591. /*    function definition for ILLEGAL-BOA    */
  592.  
  593. static L4()
  594. {    register object *base=vs_base;
  595.     register object *sup=base+VM5;
  596.     vs_reserve(VM5);
  597.     check_arg(0);
  598.     vs_top=sup;
  599. TTL:;
  600.     base[0]= VV[46];
  601.     vs_top=(vs_base=base+0)+1;
  602.     Lerror();
  603.     return;
  604. }
  605. /*    function definition for MAKE-COPIER    */
  606.  
  607. static L5()
  608. {    register object *base=vs_base;
  609.     register object *sup=base+VM6;
  610.     vs_reserve(VM6);
  611.     check_arg(4);
  612.     vs_top=sup;
  613. TTL:;
  614.     if((base[2])!=Cnil){
  615.     goto T284;}
  616.     base[4]= list(2,VV[5],base[0]);
  617.     base[5]= list(3,VV[48],VV[4],base[4]);
  618.     base[6]= list(4,VV[1],base[1],VV[47],base[5]);
  619.     vs_top=(vs_base=base+6)+1;
  620.     return;
  621. T284:;
  622.     if(base[2]==VV[18]){
  623.     goto T286;}
  624.     if(!(type_of(base[2])==t_cons)){
  625.     goto T287;}
  626.     if(!(car(base[2])==VV[18])){
  627.     goto T287;}
  628. T286:;
  629.     base[4]= listA(3,VV[1],base[1],VV[49]);
  630.     vs_top=(vs_base=base+4)+1;
  631.     return;
  632. T287:;
  633.     if(!(base[2]==VV[11])){
  634.     goto T294;}
  635.     base[4]= listA(3,VV[1],base[1],VV[50]);
  636.     vs_top=(vs_base=base+4)+1;
  637.     return;
  638. T294:;
  639.     base[5]= VV[51];
  640.     base[6]= base[2];
  641.     vs_top=(vs_base=base+5)+2;
  642.     Lerror();
  643.     vs_top=sup;
  644.     base[4]= vs_base[0];
  645.     if((base[4])==Cnil){
  646.     goto T300;}
  647.     vs_top=(vs_base=base+4)+1;
  648.     return;
  649. T300:;
  650.     base[5]= Cnil;
  651.     vs_top=(vs_base=base+5)+1;
  652.     return;
  653. }
  654. /*    function definition for MAKE-PREDICATE    */
  655.  
  656. static L6()
  657. {    register object *base=vs_base;
  658.     register object *sup=base+VM7;
  659.     vs_reserve(VM7);
  660.     check_arg(5);
  661.     vs_top=sup;
  662. TTL:;
  663.     if((base[2])!=Cnil){
  664.     goto T303;}
  665.     base[5]= list(2,VV[5],base[0]);
  666.     base[6]= list(3,VV[59],VV[60],base[5]);
  667.     base[7]= list(3,VV[58],base[6],VV[61]);
  668.     base[8]= list(5,VV[55],VV[56],VV[57],base[7],VV[62]);
  669.     base[9]= list(3,VV[53],VV[54],base[8]);
  670.     base[10]= list(4,VV[1],base[1],VV[52],base[9]);
  671.     vs_top=(vs_base=base+10)+1;
  672.     return;
  673. T303:;
  674.     if(base[2]==VV[18]){
  675.     goto T305;}
  676.     if(!(type_of(base[2])==t_cons)){
  677.     goto T306;}
  678.     if(!(car(base[2])==VV[18])){
  679.     goto T306;}
  680. T305:;
  681.     if((base[3])!=Cnil){
  682.     goto T312;}
  683.     base[5]= VV[63];
  684.     vs_top=(vs_base=base+5)+1;
  685.     Lerror();
  686.     vs_top=sup;
  687. T312:;
  688.     base[5]= list(3,VV[66],VV[67],base[4]);
  689.     base[6]= list(3,VV[20],VV[4],base[4]);
  690.     base[7]= list(2,VV[5],base[0]);
  691.     base[8]= list(3,VV[59],base[6],base[7]);
  692.     base[9]= list(4,VV[53],VV[65],base[5],base[8]);
  693.     base[10]= list(4,VV[1],base[1],VV[64],base[9]);
  694.     vs_top=(vs_base=base+10)+1;
  695.     return;
  696. T306:;
  697.     if(!(base[2]==VV[11])){
  698.     goto T317;}
  699.     if((base[3])!=Cnil){
  700.     goto T319;}
  701.     base[5]= VV[68];
  702.     vs_top=(vs_base=base+5)+1;
  703.     Lerror();
  704.     vs_top=sup;
  705. T319:;
  706.     if(!(number_compare(base[4],VV[69])==0)){
  707.     goto T324;}
  708.     base[5]= list(2,VV[5],base[0]);
  709.     base[6]= list(3,VV[59],VV[72],base[5]);
  710.     base[7]= list(3,VV[53],VV[71],base[6]);
  711.     base[8]= list(4,VV[1],base[1],VV[70],base[7]);
  712.     vs_top=(vs_base=base+8)+1;
  713.     return;
  714. T324:;
  715.     base[5]= list(3,VV[74],base[4],VV[75]);
  716.     base[6]= list(2,base[5],VV[76]);
  717.     base[7]= list(2,VV[5],base[0]);
  718.     base[8]= list(3,VV[59],VV[79],base[7]);
  719.     base[9]= list(3,VV[53],VV[78],base[8]);
  720.     base[10]= list(2,VV[77],base[9]);
  721.     base[11]= list(4,VV[55],base[6],base[10],VV[80]);
  722.     base[12]= list(4,VV[1],base[1],VV[73],base[11]);
  723.     vs_top=(vs_base=base+12)+1;
  724.     return;
  725. T317:;
  726.     base[6]= VV[81];
  727.     vs_top=(vs_base=base+6)+1;
  728.     Lerror();
  729.     vs_top=sup;
  730.     base[5]= vs_base[0];
  731.     if((base[5])==Cnil){
  732.     goto T329;}
  733.     vs_top=(vs_base=base+5)+1;
  734.     return;
  735. T329:;
  736.     base[6]= Cnil;
  737.     vs_top=(vs_base=base+6)+1;
  738.     return;
  739. }
  740. /*    function definition for PARSE-SLOT-DESCRIPTION    */
  741.  
  742. static L7()
  743. {    register object *base=vs_base;
  744.     register object *sup=base+VM8;
  745.     vs_reserve(VM8);
  746.     check_arg(2);
  747.     vs_top=sup;
  748. TTL:;
  749.     base[2]= Cnil;
  750.     base[3]= Cnil;
  751.     base[4]= Cnil;
  752.     base[5]= Cnil;
  753.     if(!(type_of(base[0])!=t_cons)){
  754.     goto T333;}
  755.     base[2]= base[0];
  756.     goto T331;
  757. T333:;
  758.     if(!(endp(cdr(base[0])))){
  759.     goto T337;}
  760.     base[2]= car(base[0]);
  761.     goto T331;
  762. T337:;
  763.     base[2]= car(base[0]);
  764.     base[3]= cadr(base[0]);
  765.     base[6]= cddr(base[0]);
  766.     base[7]= Cnil;
  767.     base[8]= Cnil;
  768. T346:;
  769.     if(!(endp(base[6]))){
  770.     goto T347;}
  771.     goto T331;
  772. T347:;
  773.     base[7]= car(base[6]);
  774.     if(!(endp(cdr(base[6])))){
  775.     goto T353;}
  776.     base[9]= VV[82];
  777.     base[10]= base[6];
  778.     vs_top=(vs_base=base+9)+2;
  779.     Lerror();
  780.     vs_top=sup;
  781. T353:;
  782.     base[8]= cadr(base[6]);
  783.     {object V18= base[7];
  784.     if((V18!= VV[133]))goto T361;
  785.     base[4]= base[8];
  786.     goto T360;
  787. T361:;
  788.     if((V18!= VV[134]))goto T363;
  789.     base[5]= base[8];
  790.     goto T360;
  791. T363:;
  792.     base[9]= VV[83];
  793.     base[10]= base[6];
  794.     vs_top=(vs_base=base+9)+2;
  795.     Lerror();
  796.     vs_top=sup;}
  797. T360:;
  798.     base[6]= cddr(base[6]);
  799.     goto T346;
  800. T331:;
  801.     base[6]= list(5,base[2],base[3],base[4],base[5],base[1]);
  802.     vs_top=(vs_base=base+6)+1;
  803.     return;
  804. }
  805. /*    function definition for OVERWRITE-SLOT-DESCRIPTIONS    */
  806.  
  807. static L8()
  808. {    register object *base=vs_base;
  809.     register object *sup=base+VM9;
  810.     vs_reserve(VM9);
  811.     check_arg(2);
  812.     vs_top=sup;
  813. TTL:;
  814.     if((base[1])!=Cnil){
  815.     goto T371;}
  816.     base[2]= Cnil;
  817.     vs_top=(vs_base=base+2)+1;
  818.     return;
  819. T371:;
  820.     base[3]= caar(base[1]);
  821.     base[4]= base[0];
  822.     base[5]= VV[42];
  823.     base[6]= symbol_function(VV[135]);
  824.     vs_top=(vs_base=base+3)+4;
  825.     Lmember();
  826.     vs_top=sup;
  827.     base[2]= vs_base[0];
  828.     if((base[2])==Cnil){
  829.     goto T379;}
  830.     if((cadddr(car(base[2])))!=Cnil){
  831.     goto T381;}
  832.     if((cadddr(car(base[1])))==Cnil){
  833.     goto T381;}
  834.     base[3]= VV[84];
  835.     base[4]= base[2];
  836.     vs_top=(vs_base=base+3)+2;
  837.     Lerror();
  838.     vs_top=sup;
  839. T381:;
  840.     base[3]= list(5,caar(base[2]),cadar(base[2]),caddar(base[2]),cadddr(car(base[2])),car(cddddr(car(base[1]))));
  841.     base[5]= base[0];
  842.     base[6]= cdr(base[1]);
  843.     vs_top=(vs_base=base+5)+2;
  844.     L8();
  845.     vs_top=sup;
  846.     base[4]= vs_base[0];
  847.     base[5]= make_cons(base[3],base[4]);
  848.     vs_top=(vs_base=base+5)+1;
  849.     return;
  850. T379:;
  851.     {object V19= car(base[1]);
  852.     base[4]= base[0];
  853.     base[5]= cdr(base[1]);
  854.     vs_top=(vs_base=base+4)+2;
  855.     L8();
  856.     vs_top=sup;
  857.     base[3]= vs_base[0];
  858.     base[4]= make_cons(V19,base[3]);
  859.     vs_top=(vs_base=base+4)+1;
  860.     return;}
  861. }
  862. /*    macro definition for DEFSTRUCT    */
  863.  
  864. static L9()
  865. {    register object *base=vs_base;
  866.     register object *sup=base+VM10;
  867.     vs_reserve(VM10);
  868.     check_arg(2);
  869.     vs_top=sup;
  870.     {object V20=base[0]->c.c_cdr;
  871.     if(endp(V20))invalid_macro_call();
  872.     base[2]= (V20->c.c_car);
  873.     V20=V20->c.c_cdr;
  874.     base[3]= V20;}
  875.     base[4]= base[3];
  876.     base[5]= Cnil;
  877.     base[6]= Cnil;
  878.     base[7]= Cnil;
  879.     base[8]= Cnil;
  880.     base[9]= Cnil;
  881.     base[10]= Cnil;
  882.     base[11]= Cnil;
  883.     base[12]= Cnil;
  884.     base[13]= Cnil;
  885.     base[14]= Cnil;
  886.     base[15]= Cnil;
  887.     base[16]= Cnil;
  888.     base[17]= Cnil;
  889.     base[18]= Cnil;
  890.     base[19]= Cnil;
  891.     base[20]= Cnil;
  892.     if(!(type_of(base[2])==t_cons)){
  893.     goto T394;}
  894.     base[5]= cdr(base[2]);
  895.     base[2]= car(base[2]);
  896. T394:;
  897.     base[21]= coerce_to_string(base[2]);
  898.     base[22]= VV[85];
  899.     base[6]= simple_symlispcall_no_event(VV[132],base+21,2);
  900.     base[22]= VV[86];
  901.     base[23]= coerce_to_string(base[2]);
  902.     base[21]= simple_symlispcall_no_event(VV[132],base+22,2);
  903.     vs_top=(vs_base=base+21)+1;
  904.     Lintern();
  905.     vs_top=sup;
  906.     base[8]= vs_base[0];
  907.     base[22]= VV[87];
  908.     base[23]= coerce_to_string(base[2]);
  909.     base[21]= simple_symlispcall_no_event(VV[132],base+22,2);
  910.     vs_top=(vs_base=base+21)+1;
  911.     Lintern();
  912.     vs_top=sup;
  913.     base[10]= vs_base[0];
  914.     base[22]= coerce_to_string(base[2]);
  915.     base[23]= VV[88];
  916.     base[21]= simple_symlispcall_no_event(VV[132],base+22,2);
  917.     vs_top=(vs_base=base+21)+1;
  918.     Lintern();
  919.     vs_top=sup;
  920.     base[11]= vs_base[0];
  921.     base[21]= base[5];
  922.     base[22]= Cnil;
  923.     base[23]= Cnil;
  924. T421:;
  925.     if(!(endp(base[21]))){
  926.     goto T422;}
  927.     goto T419;
  928. T422:;
  929.     if(!(type_of(car(base[21]))==t_cons)){
  930.     goto T428;}
  931.     if(endp(cdar(base[21]))){
  932.     goto T428;}
  933.     base[22]= caar(base[21]);
  934.     base[23]= cadar(base[21]);
  935.     {object V21= base[22];
  936.     if((V21!= VV[136]))goto T436;
  937.     if((base[23])!=Cnil){
  938.     goto T438;}
  939.     base[6]= VV[89];
  940.     goto T426;
  941. T438:;
  942.     base[6]= base[23];
  943.     goto T426;
  944. T436:;
  945.     if((V21!= VV[137]))goto T442;
  946.     if((base[23])!=Cnil){
  947.     goto T444;}
  948.     base[9]= Ct;
  949.     goto T426;
  950. T444:;
  951.     if(!(endp(cddar(base[21])))){
  952.     goto T448;}
  953.     base[7]= make_cons(base[23],base[7]);
  954.     goto T426;
  955. T448:;
  956.     base[7]= make_cons(cdar(base[21]),base[7]);
  957.     goto T426;
  958. T442:;
  959.     if((V21!= VV[138]))goto T452;
  960.     base[10]= base[23];
  961.     goto T426;
  962. T452:;
  963.     if((V21!= VV[139]))goto T454;
  964.     base[11]= base[23];
  965.     base[12]= Ct;
  966.     goto T426;
  967. T454:;
  968.     if((V21!= VV[140]))goto T458;
  969.     base[13]= cdar(base[21]);
  970.     if((get(base[23],VV[90],Cnil))!=Cnil){
  971.     goto T426;}
  972.     base[24]= VV[91];
  973.     base[25]= base[23];
  974.     vs_top=(vs_base=base+24)+2;
  975.     Lerror();
  976.     vs_top=sup;
  977.     goto T426;
  978. T458:;
  979.     if((V21!= VV[141]))goto T465;
  980.     base[14]= base[23];
  981.     goto T426;
  982. T465:;
  983.     if((V21!= VV[133]))goto T467;
  984.     base[15]= base[23];
  985.     goto T426;
  986. T467:;
  987.     if((V21!= VV[142]))goto T469;
  988.     base[17]= base[23];
  989.     goto T426;
  990. T469:;
  991.     base[24]= VV[92];
  992.     base[25]= base[22];
  993.     vs_top=(vs_base=base+24)+2;
  994.     Lerror();
  995.     vs_top=sup;
  996.     goto T426;}
  997. T428:;
  998.     if(!(type_of(car(base[21]))==t_cons)){
  999.     goto T475;}
  1000.     base[22]= caar(base[21]);
  1001.     goto T473;
  1002. T475:;
  1003.     base[22]= car(base[21]);
  1004. T473:;
  1005.     {object V22= base[22];
  1006.     if((V22!= VV[137]))goto T479;
  1007.     base[7]= make_cons(base[8],base[7]);
  1008.     goto T426;
  1009. T479:;
  1010.     if((V22!= VV[136])
  1011.     && (V22!= VV[138])
  1012.     && (V22!= VV[139])
  1013.     && (V22!= VV[141]))goto T481;
  1014.     goto T426;
  1015. T481:;
  1016.     if((V22!= VV[143]))goto T482;
  1017.     base[16]= Ct;
  1018.     goto T426;
  1019. T482:;
  1020.     base[24]= VV[93];
  1021.     base[25]= base[22];
  1022.     vs_top=(vs_base=base+24)+2;
  1023.     Lerror();
  1024.     vs_top=sup;}
  1025. T426:;
  1026.     base[21]= cdr(base[21]);
  1027.     goto T421;
  1028. T419:;
  1029.     if(endp(base[4])){
  1030.     goto T489;}
  1031.     if(!(type_of(car(base[4]))==t_string)){
  1032.     goto T489;}
  1033.     base[20]= car(base[4]);
  1034.     base[4]= cdr(base[4]);
  1035. T489:;
  1036.     if((base[13])==Cnil){
  1037.     goto T497;}
  1038.     base[21]= get(car(base[13]),VV[94],Cnil);
  1039.     if(equal(base[15],base[21])){
  1040.     goto T497;}
  1041.     base[21]= VV[95];
  1042.     base[22]= car(base[13]);
  1043.     vs_top=(vs_base=base+21)+2;
  1044.     Lerror();
  1045.     vs_top=sup;
  1046. T497:;
  1047.     if((base[13])!=Cnil){
  1048.     goto T507;}
  1049.     base[18]= VV[69];
  1050.     goto T505;
  1051. T507:;
  1052.     base[18]= get(car(base[13]),VV[96],Cnil);
  1053. T505:;
  1054.     if((base[15])==Cnil){
  1055.     goto T511;}
  1056.     if((base[17])==Cnil){
  1057.     goto T511;}
  1058.     base[18]= number_plus(base[18],base[17]);
  1059. T511:;
  1060.     if((base[15])==Cnil){
  1061.     goto T517;}
  1062.     if((base[16])==Cnil){
  1063.     goto T517;}
  1064.     base[19]= base[18];
  1065.     base[18]= one_plus(base[18]);
  1066. T517:;
  1067.     base[21]= base[4];
  1068.     base[22]= Cnil;
  1069. T527:;
  1070.     if(!(endp(base[21]))){
  1071.     goto T528;}
  1072.     base[4]= nreverse(base[22]);
  1073.     goto T525;
  1074. T528:;
  1075.     base[24]= car(base[21]);
  1076.     base[25]= base[18];
  1077.     vs_top=(vs_base=base+24)+2;
  1078.     L7();
  1079.     vs_top=sup;
  1080.     base[23]= vs_base[0];
  1081.     base[22]= make_cons(base[23],base[22]);
  1082.     base[18]= one_plus(base[18]);
  1083.     base[21]= cdr(base[21]);
  1084.     goto T527;
  1085. T525:;
  1086.     if((base[15])==Cnil){
  1087.     goto T543;}
  1088.     if((base[16])==Cnil){
  1089.     goto T543;}
  1090.     base[21]= list(2,Cnil,base[2]);
  1091.     base[4]= make_cons(base[21],base[4]);
  1092. T543:;
  1093.     if((base[15])==Cnil){
  1094.     goto T549;}
  1095.     if((base[17])==Cnil){
  1096.     goto T549;}
  1097.     base[22]= base[17];
  1098.     vs_top=(vs_base=base+22)+1;
  1099.     Lmake_list();
  1100.     vs_top=sup;
  1101.     base[21]= vs_base[0];
  1102.     base[4]= append(base[21],base[4]);
  1103. T549:;
  1104.     base[21]= (base[13]==Cnil?Ct:Cnil);
  1105.     if((base[21])==Cnil){
  1106.     goto T560;}
  1107.     goto T557;
  1108. T560:;
  1109.     if(!(endp(cdr(base[13])))){
  1110.     goto T563;}
  1111.     base[22]= get(car(base[13]),VV[97],Cnil);
  1112.     base[4]= append(base[22],base[4]);
  1113.     goto T557;
  1114. T563:;
  1115.     {object V23;
  1116.     object V24= cdr(base[13]);
  1117.     if(endp(V24)){
  1118.     base[23]= Cnil;
  1119.     goto T569;}
  1120.     base[24]=V23=MMcons(Cnil,Cnil);
  1121. T570:;
  1122.     base[26]= (V24->c.c_car);
  1123.     base[27]= VV[69];
  1124.     vs_top=(vs_base=base+26)+2;
  1125.     L7();
  1126.     vs_top=sup;
  1127.     (V23->c.c_car)= vs_base[0];
  1128.     if(endp(V24=MMcdr(V24))){
  1129.     base[23]= base[24];
  1130.     goto T569;}
  1131.     V23=MMcdr(V23)=MMcons(Cnil,Cnil);
  1132.     goto T570;}
  1133. T569:;
  1134.     base[24]= get(car(base[13]),VV[97],Cnil);
  1135.     vs_top=(vs_base=base+23)+2;
  1136.     L8();
  1137.     vs_top=sup;
  1138.     base[22]= vs_base[0];
  1139.     base[4]= append(base[22],base[4]);
  1140. T557:;
  1141.     if((base[9])==Cnil){
  1142.     goto T577;}
  1143.     if((base[7])==Cnil){
  1144.     goto T575;}
  1145.     base[21]= VV[98];
  1146.     vs_top=(vs_base=base+21)+1;
  1147.     Lerror();
  1148.     vs_top=sup;
  1149.     goto T575;
  1150. T577:;
  1151.     if((base[7])!=Cnil){
  1152.     goto T575;}
  1153.     base[7]= make_cons(base[8],Cnil);
  1154. T575:;
  1155.     if((base[15])==Cnil){
  1156.     goto T585;}
  1157.     if((base[16])!=Cnil){
  1158.     goto T585;}
  1159.     if((base[12])==Cnil){
  1160.     goto T590;}
  1161.     base[21]= VV[99];
  1162.     base[22]= base[11];
  1163.     vs_top=(vs_base=base+21)+2;
  1164.     Lerror();
  1165.     vs_top=sup;
  1166. T590:;
  1167.     base[11]= Cnil;
  1168. T585:;
  1169.     if((base[13])==Cnil){
  1170.     goto T596;}
  1171.     base[13]= car(base[13]);
  1172. T596:;
  1173.     if((base[14])==Cnil){
  1174.     goto T600;}
  1175.     if((base[15])==Cnil){
  1176.     goto T600;}
  1177.     base[21]= VV[100];
  1178.     vs_top=(vs_base=base+21)+1;
  1179.     Lerror();
  1180.     vs_top=sup;
  1181. T600:;
  1182.     base[21]= list(2,VV[5],base[2]);
  1183.     base[22]= listA(3,VV[102],base[2],base[3]);
  1184.     base[23]= list(2,VV[5],base[22]);
  1185.     base[24]= list(4,VV[6],base[21],base[23],VV[103]);
  1186.     base[25]= list(2,VV[5],base[2]);
  1187.     base[26]= listA(3,VV[6],base[25],VV[104]);
  1188.     base[27]= list(2,VV[5],base[2]);
  1189.     base[28]= list(2,VV[5],base[4]);
  1190.     base[29]= list(4,VV[6],base[27],base[28],VV[105]);
  1191.     base[30]= list(2,VV[5],base[2]);
  1192.     base[31]= list(2,VV[5],base[13]);
  1193.     base[32]= list(4,VV[6],base[30],base[31],VV[106]);
  1194.     base[33]= list(2,VV[5],base[2]);
  1195.     base[34]= list(2,VV[5],base[14]);
  1196.     base[35]= list(4,VV[6],base[33],base[34],VV[107]);
  1197.     base[36]= list(2,VV[5],base[2]);
  1198.     base[37]= list(2,VV[5],base[15]);
  1199.     base[38]= list(4,VV[6],base[36],base[37],VV[108]);
  1200.     base[39]= list(2,VV[5],base[2]);
  1201.     base[40]= list(2,VV[5],base[16]);
  1202.     base[41]= list(4,VV[6],base[39],base[40],VV[109]);
  1203.     {object V25;
  1204.     object V26= base[4];
  1205.     if(endp(V26)){
  1206.     base[42]= Cnil;
  1207.     goto T606;}
  1208.     base[43]=V25=MMcons(Cnil,Cnil);
  1209. T607:;
  1210.     if(((V26->c.c_car))==Cnil){
  1211.     goto T610;}
  1212.     if((car((V26->c.c_car)))==Cnil){
  1213.     goto T610;}
  1214.     base[45]= base[2];
  1215.     base[46]= base[6];
  1216.     base[47]= base[15];
  1217.     base[48]= base[16];
  1218.     {object V27;
  1219.     V27= (V26->c.c_car);
  1220.      vs_top=base+49;
  1221.      while(!endp(V27))
  1222.      {vs_push(car(V27));V27=cdr(V27);}
  1223.     vs_base=base+45;}
  1224.     L2();
  1225.     vs_top=sup;
  1226.     (V25->c.c_cdr)= vs_base[0];
  1227.     goto T608;
  1228. T610:;
  1229.     (V25->c.c_cdr)= Cnil;
  1230. T608:;
  1231.     while(!endp(MMcdr(V25)))V25=MMcdr(V25);
  1232.     if(endp(V26=MMcdr(V26))){
  1233.     base[43]=base[43]->c.c_cdr;
  1234.     base[42]= base[43];
  1235.     goto T606;}
  1236.     goto T607;}
  1237. T606:;
  1238.     base[43]= list(2,VV[5],base[2]);
  1239.     base[44]= list(4,VV[6],base[43],base[18],VV[110]);
  1240.     {object V28;
  1241.     object V29= base[7];
  1242.     if(endp(V29)){
  1243.     base[45]= Cnil;
  1244.     goto T619;}
  1245.     base[46]=V28=MMcons(Cnil,Cnil);
  1246. T620:;
  1247.     base[48]= base[2];
  1248.     base[49]= (V29->c.c_car);
  1249.     base[50]= base[15];
  1250.     base[51]= base[16];
  1251.     base[52]= base[4];
  1252.     vs_top=(vs_base=base+48)+5;
  1253.     L3();
  1254.     vs_top=sup;
  1255.     (V28->c.c_car)= vs_base[0];
  1256.     if(endp(V29=MMcdr(V29))){
  1257.     base[45]= base[46];
  1258.     goto T619;}
  1259.     V28=MMcdr(V28)=MMcons(Cnil,Cnil);
  1260.     goto T620;}
  1261. T619:;
  1262.     base[46]= list(2,VV[5],base[2]);
  1263.     base[47]= list(2,VV[5],base[7]);
  1264.     base[48]= list(4,VV[6],base[46],base[47],VV[111]);
  1265.     if((base[10])==Cnil){
  1266.     goto T630;}
  1267.     base[52]= base[2];
  1268.     base[53]= base[10];
  1269.     base[54]= base[15];
  1270.     base[55]= base[16];
  1271.     vs_top=(vs_base=base+52)+4;
  1272.     L5();
  1273.     vs_top=sup;
  1274.     base[51]= vs_base[0];
  1275.     base[50]= make_cons(base[51],Cnil);
  1276.     goto T628;
  1277. T630:;
  1278.     base[50]= Cnil;
  1279. T628:;
  1280.     if((base[11])==Cnil){
  1281.     goto T639;}
  1282.     base[53]= base[2];
  1283.     base[54]= base[11];
  1284.     base[55]= base[15];
  1285.     base[56]= base[16];
  1286.     base[57]= base[19];
  1287.     vs_top=(vs_base=base+53)+5;
  1288.     L6();
  1289.     vs_top=sup;
  1290.     base[52]= vs_base[0];
  1291.     base[51]= make_cons(base[52],Cnil);
  1292.     goto T637;
  1293. T639:;
  1294.     base[51]= Cnil;
  1295. T637:;
  1296.     base[53]= list(2,VV[5],base[2]);
  1297.     base[54]= list(4,VV[6],base[53],base[20],VV[112]);
  1298.     base[55]= list(2,VV[5],base[2]);
  1299.     base[52]= list(2,base[54],base[55]);
  1300.     vs_top=(vs_base=base+50)+3;
  1301.     Lappend();
  1302.     vs_top=sup;
  1303.     base[49]= vs_base[0];
  1304.     base[50]= make_cons(base[48],base[49]);
  1305.     base[51]= append(base[45],base[50]);
  1306.     base[52]= make_cons(base[44],base[51]);
  1307.     base[53]= append(base[42],base[52]);
  1308.     base[54]= listA(9,VV[101],base[24],base[26],base[29],base[32],base[35],base[38],base[41],base[53]);
  1309.     vs_top=(vs_base=base+54)+1;
  1310.     return;
  1311. }
  1312. /*    function definition for SHARP-S-READER    */
  1313.  
  1314. static L10()
  1315. {    register object *base=vs_base;
  1316.     register object *sup=base+VM11;
  1317.     vs_reserve(VM11);
  1318.     check_arg(3);
  1319.     vs_top=sup;
  1320. TTL:;
  1321.     if((base[2])==Cnil){
  1322.     goto T648;}
  1323.     if((symbol_value(VV[113]))!=Cnil){
  1324.     goto T648;}
  1325.     base[3]= VV[114];
  1326.     vs_top=(vs_base=base+3)+1;
  1327.     Lerror();
  1328.     vs_top=sup;
  1329. T648:;
  1330.     base[4]= base[0];
  1331.     vs_top=(vs_base=base+4)+1;
  1332.     Lread();
  1333.     vs_top=sup;
  1334.     base[3]= vs_base[0];
  1335.     if((get(car(base[3]),VV[90],Cnil))!=Cnil){
  1336.     goto T656;}
  1337.     base[4]= VV[115];
  1338.     base[5]= car(base[3]);
  1339.     vs_top=(vs_base=base+4)+2;
  1340.     Lerror();
  1341.     vs_top=sup;
  1342. T656:;
  1343.     base[4]= cdr(base[3]);
  1344. T663:;
  1345.     if(!(endp(base[4]))){
  1346.     goto T664;}
  1347.     base[5]= get(car(base[3]),VV[116],Cnil);
  1348. T669:;
  1349.     if(!(endp(base[5]))){
  1350.     goto T670;}
  1351.     base[6]= VV[117];
  1352.     base[7]= car(base[3]);
  1353.     vs_top=(vs_base=base+6)+2;
  1354.     Lerror();
  1355.     return;
  1356. T670:;
  1357.     if(!(type_of(car(base[5]))==t_symbol)){
  1358.     goto T676;}
  1359.     base[6]= car(base[5]);
  1360.     {object V30;
  1361.     V30= cdr(base[3]);
  1362.      vs_top=base+7;
  1363.      while(!endp(V30))
  1364.      {vs_push(car(V30));V30=cdr(V30);}
  1365.     vs_base=base+7;}
  1366.     super_funcall_no_event(base[6]);
  1367.     return;
  1368. T676:;
  1369.     base[5]= cdr(base[5]);
  1370.     goto T669;
  1371. T664:;
  1372.     base[6]= coerce_to_string(car(base[4]));
  1373.     base[7]= VV[118];
  1374.     vs_top=(vs_base=base+6)+2;
  1375.     Lintern();
  1376.     vs_top=sup;
  1377.     base[5]= vs_base[0];
  1378.     if(type_of(base[4])!=t_cons)FEwrong_type_argument(Scons,base[4]);
  1379.     (base[4])->c.c_car = base[5];
  1380.     base[4]= cddr(base[4]);
  1381.     goto T663;
  1382. }
  1383. /*    local function CLOSURE    */
  1384.  
  1385. static LC13(base0)
  1386. register object *base0;
  1387. {    register object *base=vs_base;
  1388.     register object *sup=base+VM12;
  1389.     vs_reserve(VM12);
  1390.     check_arg(1);
  1391.     vs_top=sup;
  1392.     if(!(type_of(base[0])==t_cons)){
  1393.     goto T693;}
  1394.     base[1]= car(base[0]);
  1395.     vs_top=(vs_base=base+1)+1;
  1396.     return;
  1397. T693:;
  1398.     base[1]= Cnil;
  1399.     vs_top=(vs_base=base+1)+1;
  1400.     return;
  1401. }
  1402.